1 POKE53280,0:POKE53281,0:PRINTCHR$(14):REM POKE788,52:POKE792,193
3 PRINTCHR$(147):PRINT
4 PRINT "        [194]ITTE WARTEN"
5 GOSUB655
6 PRINTZD$ZH$
7 PRINTZH$"     "ZA$"                           "ZB$"
8 [153]"     "ZA$" "ZB$"                         "ZA$" "ZB$
9 [153]"     "ZA$" "ZB$"      (null)CLOSERIGHT$CLOSECHR$CLOSEATNCLOSE(null)CLOSEATNCLOSEPEEKCLOSE     "ZA$" "ZB$
10 [153]"     "ZA$" "ZB$"                         "ZA$" "ZB$
11 [153]"     "ZA$" "ZB$"  BY LEFT$EUSER ASCRANZ-MID$OSEF  "ZA$" "ZB$
12 [153]"     "ZA$" "ZB$"                         "ZA$" "ZB$
13 [153]"     "ZA$" "ZB$"  RIGHT$N DEN ATNTZENBENDEN 74  "ZA$" "ZB$
14 [153]"     "ZA$" "ZB$"                         "ZA$" "ZB$
15 [153]"     "ZA$" "ZB$"    5100 ATNACHEN-LEFT$AAREN   "ZA$" "ZB$
16 [153]"     "ZA$" "ZB$"                         "ZA$" "ZB$
17 [153]"     "ZA$" "ZB$"    (null)ELEFON 0241/16737   "ZA$" "ZB$
18 [153]"     "ZA$" "ZB$"                         "ZA$" "ZB$
19 [153]"     "ZA$"                           "ZB$"
20 PRINT:PRINT:PRINT"     [194]ITTE GEBEN [211]IE DAS HEUTIGE"
21 PRINT:PRINT"     [196]ATUM IN DER [198]ORM [212][212].[205][205].[202][202][202][202]"          "
22 [153]"                       ^^ ^^ ^^^^"          "
23 PRINT"     EIN.              ..........";
24 PRINTZE$ZE$ZE$ZE$ZE$ZE$ZE$ZE$ZE$ZE$ZE$ZE$;:INPUTDA$
25 PRINT:PRINT:PRINTZA$Z0$ZB$
26 GOSUB709
27 IFW$<>"J"THEN6
28 DIMM$(20),M(20),D(38,10),E(38,10),L(20,9),G$(38,20),SR$(20),Z(20)
29 DIMH$(38,20),K1(20,2),DS$(38),N$(38,10),DN$(38,10)
30 GOSUB575
31 PRINTZD$ZA$Z1$ZB$:PRINT
32 PRINT"-------- "ZZ$" ----------" :PRINT
33 PRINT"   "ZA$" 1 "ZB$" = "ZW$
34 PRINT"   "ZA$" 2 "ZB$" = "ZT$
35 PRINT"   "ZA$" 3 "ZB$" = "ZS$:PRINT
36 PRINT"--------    "ZY$"   ----------":PRINT
37 PRINT"   "ZA$" 4 "ZB$" = "ZR$
38 PRINT"   "ZA$" 5 "ZB$" = "ZQ$
39 PRINT"   "ZA$" 6 "ZB$" = "ZP$:PRINT
40 PRINT"--------   "ZX$"   ----------":PRINT
41 PRINT"   "ZA$" 7 "ZB$" = "ZO$
42 PRINT"   "ZA$" 8 "ZB$" = "ZN$:PRINT
43 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]":PRINT
44 PRINT"   "ZA$" 9 "ZB$" = "ZA$ZM$ZB$
45 PRINT:PRINTZL$
46 GOSUB709
47 W=VAL(W$):IFW<1ORW>9THEN46
48 ONWGOSUB50,88,147,194,219,291,331,374,411
49 GOTO31
50 PRINTZD$:PRINTZA$Z2$ZB$:PRINT
51 IFLN$=""THENLN$="................"
52 IFA=0THENPRINT:PRINT"        [197][160][210][160][211][160][212][160][197][160][201][160][206][160][199][160][193][160][194][160][197][160][160] ":PRINT:PRINT
53 IFA=0THENPRINT" [204]IGANAME =   ";LN$:PRINTZC$ZG$ZG$ZG$ZG$ZG$
54 IFA=0THENPRINT:FORX=1TO12:PRINTZF$;:NEXTX
55 IFA=0THENINPUTLN$:LN$=LEFT$(LN$,16):PRINT
56 IFA=0THENINPUT" [215]IEVIELE [205]ANNSCHAFTEN (3-20) ";A:GOSUB571:Y=1
57 IFA<3ORA>20THENA=0:GOTO50
58 PRINTZD$ZA$Z2$ZB$:PRINT
59 FORI=1TOA
60 IFI<10THENPRINTZF$;
61 PRINTI;ZE$;". [205]ANNSCHAFT     ";M$(I)
62 NEXTI
63 IFY=1THENGOSUB82
64 PRINTZG$ZA$Z0$ZB$
65 GOSUB709
66 IFW$="J"THENY=0:RETURN
67 IFW$<>"N"THEN65
68 PRINTZH$;:PRINT"        "ZA$"[206]"ZB$"AME  "ZA$"[193]"ZB$"NZAHL FALSCH ?";
69 PRINT"          "
70 GOSUB709
71 IFW$="N"THENY=1:GOSUB82:GOTO80
72 IFW$="A"THENPRINTZH$ZH$
73 PRINT"        "ZA$"-"ZB$" = [197]INE [205]ANNSCHAFT WENIGER"
74 PRINT:PRINT"        "ZA$"+"ZB$" = [197]INE [205]ANNSCHAFT MEHR"
75 GOSUB709
76 IFW$="-"THENGOSUB497:Y=0:GOTO58
77 IFW$="+"THENGOSUB526:Y=0:GOTO58
78 GOTO75
79 W$="A"
80 IFW$="N"THENPRINTZH$:GOTO64
81 IFW$<>"N"ORW$<>"A"THEN70
82 PRINTZC$ZG$
83 FORI=1TOA
84 FORX=1TO18:PRINTZF$;:NEXTX
85 INPUTM$:M$(I)=LEFT$(M$,15):M$=""
86 NEXTI
87 RETURN
88 PRINTZD$ZA$Z3$ZB$:PRINT:PRINT
89 PRINT"   "ZA$" E "ZB$" = [211]PIELPLAN       EINGEBEN":PRINT
90 PRINT"   "ZA$" S "ZB$" = [211]PIELE          SICHTEN":PRINT
91 PRINT"         [197]RGEBNISSE      -E-S-K-":PRINT
92 PRINT"   "ZA$" N "ZB$" = [206]ACHHOLSPIELE   -E-S-K-":PRINT
93 PRINT"   "ZA$" M "ZB$" = [205]ENUE"
94 GOSUB709
95 IFW$="M"THENRETURN
96 IFW$="E"THEN101
97 IFW$="S"THENPRINT:PRINT:PRINT"   [211]TART BEI [211]PIELTAG (1-";B;")";:INPUTBS
98 IFW$="S"THEN120
99 IFW$="N"THEN685
100 GOTO88
101 GOSUB571
102 GOSUB477
103 FORI=1TOINT(B/2)
104 GOSUB712
105 PRINTZA$I;ZE$;"[212]AG [215]ER SPIELTE GEGEN WEN (1 -"A;:PRINTZE$")   "ZB$:PRINT
106 FORJ=1TOC
107 PRINTZF$;D(I,J)
108 PRINTZH$ZF$ZF$ZF$ZF$ZF$" - ";:PRINT E(I,J):PRINTZH$ZH$
109 INPUTD$
110 D(I,J)=VAL(LEFT$(D$,2)):D$=""
111 PRINTZH$ZF$ZF$ZF$ZF$" - ";:INPUT E$:E(I,J)=VAL(LEFT$(E$,2)):E$=""
112 NEXTJ
113 PRINTZA$Z0$ZB$
114 GOSUB709
115 IFW$="M"THENRETURN
116 IFW$<>"J"THEN104
117 NEXTI
118 GOSUB519
119 GOTO88
120 GOSUB571:IFBS<1ORBS>BTHEN88
121 FORI=BSTOB
122 GOSUB712
123 PRINTZC$:FORX=1TO6:PRINTZG$:NEXTX
124 PRINTZA$I;ZE$;"[212]AG       [197][160][210][160][199][160][197][160][194][160][206][160][201][160][211][160][211][160][197]       "ZB$:PRINT
125 FORJ=1TOC
126 GOSUB732:PRINTD(I,J)
127 PRINTZH$ZF$ZF$ZF$ZF$" - ";:PRINTE(I,J):PRINTZH$ZH$
128 IFN$(I,J)="N"THENPRINT:PRINTZH$;:FOR X=1TO18:PRINTZF$;:NEXTX
129 IFN$(I,J)="N"THENPRINT" NACHHOLSPIEL":GOTO137
130 IFG$(I,D(I,J))<>""THENPRINT:PRINTZH$;:FORX=1TO18:PRINTZF$;:NEXTX
131 IFG$(I,D(I,J))<>""THENPRINTG$(I,D(I,J));
132 IFG$(I,D(I,J))<>""THENPRINT:PRINTZH$;:FORX=1TO23:PRINTZF$;:NEXTX:PRINT"*";
133 IFH$(I,D(I,J))<>""THENPRINT"  ";H$(I,D(I,J))
134 IFG$(I,D(I,J))=""ANDH$(I,D(I,J))=""THENPRINT:PRINTZH$;
135 IFG$(I,D(I,J))=""ANDH$(I,D(I,J))=""THENPRINT;:FORX=1TO23:PRINTZF$;:NEXTX
136 IFG$(I,D(I,J))=""ANDH$(I,D(I,J))=""THENPRINT"*"
137 GOSUB735
138 NEXTJ
139 IFA<19THENPRINT
140 PRINTZA$ZK$ZB$:GOSUB709
141 IFW$=ZH$THENI=I:IFI=BTHENI=0
142 IFW$=ZG$THENI=I-2:IFI<0THENI=B-1
143 IFW$="K"THENGOSUB552
144 IFW$="M"THENRETURN
145 NEXTI
146 GOTO88
147 GOSUB571
148 PRINTZD$ZA$Z4$ZB$:PRINT
149 PRINT"      [194]IS ZU WELCHEM [211]PIELTAG ?"
150 IFB=0THENRETURN
151 PRINT:PRINT"      1 - ";B;:INPUT K
152 IFK<1ORK>BTHEN148
153 GOSUB 738:PRINT:PRINT"      [201]CH BERECHNE DIE [212]ABELLE !"
154 PRINT:PRINT"             [194]ITTE WARTEN "
155 FORI=1TO20
156 FORJ=1TO9
157 L(I,J)=0
158 NEXTJ
159 NEXTI
160 FORI=1TOA
161 FORJ=1TOK
162 IFG$(J,I)=""ORH$(J,I)=""THEN169
163 L(I,4)=L(I,4)+1
164 L(I,1)=L(I,1)+VAL(G$(J,I))
165 L(I,2)=L(I,2)+VAL(H$(J,I))
166 IFVAL(G$(J,I))>VAL(H$(J,I))THENL(I,5)=L(I,5)+1
167 IFVAL(G$(J,I))=VAL(H$(J,I))THENL(I,6)=L(I,6)+1
168 IFVAL(G$(J,I))<VAL(H$(J,I))THENL(I,7)=L(I,7)+1
169 NEXTJ
170 NEXTI
171 FORI=1TOA
172 L(I,3)=L(I,1)-L(I,2)
173 L(I,8)=(L(I,5)*2)+L(I,6)
174 L(I,9)=(L(I,7)*2)+L(I,6)
175 NEXTI
176 GOSUB622:GOSUB 739
177 IFR1=1THENR1=0:RETURN
178 GOSUB 738:PRINTZD$ZA$Z4$ZB$:PRINT
179 PRINT"    [212]ABELLE EINSCHL.";K;ZE$". [211]PIELTAG":PRINT:PRINT
180 IFA>17THENPRINTZH$ZH$
181 PRINT"[208]L.[221] [206]AME          [221] [212]ORD. [221] +[208]U.[221] -[208]U."
182 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]":TY=0
183 FORI=1TOA
184 IFM$(Z(I))="..............."THEN190
185 TY=TY+1:PRINTTY;
186 PRINT:PRINTZH$ZF$ZF$ZF$;LEFT$(M$(Z(I)),15)
187 PRINTZH$;:FORX=1TO21:PRINTZF$;:NEXTX:PRINT L(Z(I),3)
188 PRINTZH$;:FORX=1TO28:PRINTZF$;:NEXTX:PRINT L(Z(I),8)
189 PRINTZH$;:FORX=1TO34:PRINTZF$;:NEXTX:PRINT L(Z(I),9)
190 NEXTI
191 GOSUB739:IFR1=1THENR1=0:RETURN
192 GOSUB709
193 RETURN
194 PRINTZD$ZA$Z5$ZB$:PRINT:PRINT
195 PRINT"   [196]RUCKERAUSGABE [205]ANNSCHAFTSLISTE":PRINT
196 PRINT"        [211]TAND :      ";DA$:PRINT
197 PRINT"         [196]RUCKER EINGESCHALTET ?":PRINT
198 PRINT"         [215]ENN FERTIG DANN ";ZA$ZV$ZB$
199 PRINT:PRINT:PRINT "               [205] = [205]ENUE"
200 GOSUB709
201 IFW$="M"THEN RETURN
202 IFW$<>CHR$(13)THEN194
203 CLOSE2:OPEN2,4,7
204 PRINT#2
205 PRINT#2,CHR$(14);"********** [205]ANNSCHAFTSLISTE ***********";CHR$(15)
206 PRINT#2
207 PRINT#2,CHR$(14);LN$"     [211]TAND : ";DA$;CHR$(15)
208 PRINT#2:GOSUB711
209 PRINT#2,CHR$(14);"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";CHR$(15)
210 PRINT#2
211 FORI=1TOASTEP4
212 PRINT#2,M$(I);"      ";
213 PRINT#2,M$(I+1);"      ";
214 PRINT#2,M$(I+2);"     ";
215 PRINT#2,M$(I+3)
216 NEXTI
217 PRINT#2:PRINT#2:PRINT#2:CLOSE2
218 RETURN
219 PRINTZD$ZA$Z6$ZB$:PRINT:PRINT:PRINT:PRINT
220 PRINT" "ZA$" [193] "ZB$" = [203]OMPLETTER [211]PIELPLAN":PRINT
221 PRINT" "ZA$" [194] "ZB$" = [197]IN BESTIMMTER [211]PIELTAG":PRINT
222 PRINT" "ZA$" [195] "ZB$" = [214]ON / BIS ZU EINEN [211]PIELTAG ":PRINT
223 PRINT" "ZA$" [196] "ZB$" = [197]RGEBNISSE EINER [205]ANNSCHAFT":PRINT
224 PRINT" "ZA$" [206] "ZB$" = [206]ACHHOLSPIELE":PRINT
225 PRINT" "ZA$" [205] "ZB$" = [205]ENUE":PRINT:PRINT:PRINT
226 GOSUB709
227 IFW$="M"THENRETURN
228 IFW$="A"THENB1=1:B2=B
229 IFW$="A"THENB3=1:GOTO240
230 IFW$="B"THENPRINT" [215]ELCHER [211]PIELTAG 1 - ";ZE$;B;:INPUTB1:B2=B1
231 IFW$="B"THENB3=2:GOTO240
232 IFW$="C"ORW$="N"THENPRINT" VON WELCHEM [211]PIELTAG 1 - ";ZE$;B;:INPUTB1:PRINT
233 IFW$="C"ORW$="N"THENPRINT" BIS WELCHEM [211]PIELTAG";B1;"- ";ZE$;B;:INPUTB2
234 B4=0:IFW$="N"THENB4=1
235 IFW$="C"ORW$="N"THENB3=3:GOTO240
236 IFW$="D"THENGOSUB435
237 GOTO219
238 IFB1<1ORB1>BTHEN219
239 IFB2<B1ORB2>BTHEN219
240 PRINTZD$ZA$Z6$ZB$:PRINT:PRINT:PRINT
241 PRINT"           [196]RUCKERAUSGABE":PRINT:PRINT
242 IFW$="A"THENPRINT "        [203]OMPLETTER [211]PIELPLAN"
243 IFW$="B"THENPRINT "           ";B1;ZE$;". [211]PIELTAG"
244 IFW$="N"THENPRINT"           [206]ACHHOLSPIELE":PRINT:PRINT
245 IFW$="C"ORW$="N"THENPRINT "   [214]OM";B1;"BIS EINSCHL.";B2;ZE$;". [211]PIELTAG"
246 PRINT:PRINT:PRINT"        [211]TAND :   ";DA$:PRINT:PRINT
247 PRINT"      "ZA$" [205] "ZB$" = [205]ENUE "ZA$" [196] "ZB$" = [196]RUCKEN"
248 GOSUB709
249 IFW$="M"THENRETURN
250 IFW$<>"D"THEN219
251 GOSUB571
252 GOSUB 738:CLOSE2:OPEN2,4,7
253 PRINT#2,CHR$(14);"********** [211] P I E L P L A N **********"CHR$(15)
254 PRINT#2
255 PRINT#2,CHR$(14);LN$;"      ";"[211]TAND :";DA$;CHR$(15)
256 IFB3=1THEN261
257 PRINT#2
258 IFB3=3THENPRINT#2,CHR$(14);"   VOM";B1;". BIS EINSCHL.";
259 IFB3=3THENPRINT#2,B2;". [211]PIELTAG";CHR$(15)
260 IFB3=2THENPRINT#2,CHR$(14);"             ";B2;". [211]PIELTAG";CHR$(15)
261 PRINT#2:GOSUB 711
262 PRINT#2,CHR$(14);"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";CHR$(15)
263 PRINT#2:IFB4=1THENGOTO425
264 FORI=B1TOB2STEP2
265 PRINT#2,"*";I;". [211]PIELTAG ";DS$(I);
266 IFI+1>B2THENPRINT#2
267 IFI+1<=B2THENPRINT#2,CHR$(16)CHR$(52)CHR$(48);"*";I+1;
268 IFI+1<=B2THENPRINT#2,". [211]PIELTAG ";DS$(I+1)
269 PRINT#2
270 J=1:X=1
271 FORYY=JTOC
272 IFD(I,YY)=0THENJ=J+1
273 IFD(I,YY)>0THEN275
274 NEXTYY
275 PRINT#2,M$(D(I,J));"-";M$(E(I,J));" ";G$(I,D(I,J));":";H$(I,D(I,J));
276 J=J+1
277 IFB2=B1THENPRINT#2:GOTO284
278 FORXX=XTOC
279 IFD(I+1,XX)=0THENX=X+1
280 IFD(I+1,XX)>0THEN282
281 NEXTXX
282 PRINT#2,CHR$(16)CHR$(52)CHR$(48);M$(D(I+1,X));"-";M$(E(I+1,X));" ";
283 PRINT#2,G$(I+1,D(I+1,X));":";H$(I+1,D(I+1,X))
284 X=X+1
285 IFX>CTHEN287
286 GOTO271
287 PRINT#2
288 NEXTI
289 PRINT#2:PRINT#2:PRINT#2:CLOSE2:GOSUB739
290 GOTO219
291 PRINTZD$ZA$Z7$ZB$:PRINT
292 R1=1:GOSUB149
293 PRINTZD$ZA$Z7$ZB$:PRINT
294 R1=1:GOSUB179
295 PRINT:PRINT"   "ZA$" [196] "ZB$" =  [196]RUCKEN  "ZA$" [205] "ZB$" = [205]ENUE"
296 GOSUB709
297 IFW$="M"THENRETURN
298 IFW$<>"D"THEN296
299 GOSUB 738:CLOSE2:OPEN2,4,7
300 PRINT#2
301 PRINT#2,CHR$(14);"************ [212] A B E L L E ************"
302 PRINT#2
303 PRINT#2,LN$;"     [211]TAND : ";DA$
304 PRINT#2
305 PRINT#2,"        EINSCHL.";K;". [211]PIELTAG";CHR$(15)
306 PRINT#2:GOSUB 711
307 PRINT#2,CHR$(14);"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";CHR$(15)
308 PRINT#2
309 PRINT#2
310 PRINT#2,"       [208]L.   [214]EREIN          [211]P.   [199]   [213]   [214]    +[212]  ";
311 PRINT#2," -[212]   [212][196]    +[208]   -[208]  "
312 PRINT#2,"      [171][192][192][192][219][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][192][192][219]";
313 PRINT#2,"[192][192][192][192][219][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][179]":TY=0
314 FORI=1TOA
315 IFM$(Z(I))="..............."THEN327
316 TY=TY+1:PRINT#2,CHR$(16)CHR$(48)CHR$(55);TY;
317 PRINT#2,CHR$(16)CHR$(49)CHR$(50);M$(Z(I));
318 PRINT#2,CHR$(16)CHR$(50)CHR$(56);L(Z(I),4);
319 PRINT#2,CHR$(16)CHR$(51)CHR$(52);L(Z(I),5);
320 PRINT#2,CHR$(16)CHR$(51)CHR$(56);L(Z(I),6);
321 PRINT#2,CHR$(16)CHR$(52)CHR$(50);L(Z(I),7);
322 PRINT#2,CHR$(16)CHR$(52)CHR$(55);L(Z(I),1);
323 PRINT#2,CHR$(16)CHR$(53)CHR$(50);L(Z(I),2);
324 PRINT#2,CHR$(16)CHR$(53)CHR$(55);L(Z(I),3);
325 PRINT#2,CHR$(16)CHR$(54)CHR$(51);L(Z(I),8);
326 PRINT#2,CHR$(16)CHR$(54)CHR$(56);L(Z(I),9)
327 NEXTI
328 PRINT#2
329 PRINT#2:PRINT#2:PRINT#2:CLOSE2:GOSUB739
330 PRINTZH$ZH$ZH$:GOTO295
331 PRINTZD$ZA$Z8$ZB$:PRINT:PRINT:PRINT
332 PRINT"      [210]ICHTIGE [196]ISKETTE EINLEGEN":PRINT
333 IFLN$=""THENLN$="................"
334 GOSUB709
335 GOSUB740
336 PRINT:PRINT"      [196]ATEINAME =   ";LN$
337 PRINTZH$ZF$ZF$ZF$ZF$ZF$ZF$ZF$ZF$ZF$ZF$ZF$ZF$ZF$ZF$ZF$ZF$ZF$ZF$;:INPUTLN$
338 PRINT:PRINTZA$Z0$ZB$:GOSUB709
339 IFW$<>"J"THEN331
340 PRINT:PRINT"      [215]ENN FERTIG DANN ";ZA$ZV$ZB$:PRINT
341 PRINT"              [205] = [205]ENUE"
342 GOSUB709
343 IFW$="M"THENRETURN
344 IFW$<>CHR$(13)THEN331
345 PRINTZD$ZA$Z8$ZB$:PRINT:PRINT:PRINT
346 PRINT"   [196]ATEN WERDEN VON [196]ISKETTE GELADEN"
347 PRINT:PRINT"            [194]ITTE WARTEN":PRINT
348 PRINT:PRINT"           ";ZA$"  [204][160]A D E N  "ZB$:PRINT
349 GOSUB 738:CLOSE1:OPEN1,8,3,LN$+",S,R"
350 INPUT#1,A:GOSUB571
351 INPUT#1,LN$
352 FORI=1TOA
353 INPUT#1,M$(I)
354 NEXTI
355 FORI=1TOB
356 INPUT#1,DS$(I)
357 FORJ=1TOC
358 INPUT#1,D(I,J)
359 INPUT#1,E(I,J)
360 INPUT#1,N$(I,J)
361 INPUT#1,DN$:IFDN$<>"......198."THENDN$(I,J)=DN$
362 NEXTJ
363 NEXTI
364 FORI=1TOB
365 FORJ=1TOA
366 INPUT#1,G$(I,J)
367 INPUT#1,H$(I,J)
368 NEXTJ
369 NEXTI
370 CLOSE1:GOSUB739
371 GOSUB604
372 GOSUB571
373 RETURN
374 PRINTZD$ZA$Z9$ZB$:PRINT:PRINT:PRINT
375 PRINT"      [210]ICHTIGE [196]ISKETTE EINLEGEN":PRINT
376 PRINT "      [196]ATEINAME = ";LN$:PRINT
377 PRINT "      [215]ENN FERTIG DANN ";ZA$ZV$ZB$:PRINT
378 PRINT "              [205] = [205]ENUE"
379 GOSUB 709
380 IF W$="M" THEN RETURN
381 IFW$<>CHR$(13)THEN374
382 PRINTZD$ZA$Z9$ZB$:PRINT:PRINT:PRINT
383 PRINT" [196]ATEN WERDEN AUF [196]ISKETTE GESPEICHERT"
384 PRINT:PRINT"            [194]ITTE WARTEN":PRINT
385 GOSUB 587
386 PRINT:PRINT"           ";ZA$"  [211]PEICHERN  "ZB$:PRINT
387 GOSUB 738:CLOSE1:OPEN1,8,3,"@:"+LN$+",S,W"
388 PRINT#1,A;CHR$(13)
389 PRINT#1,LN$;CHR$(13)
390 FORI=1TOA
391 PRINT#1,M$(I);CHR$(13)
392 NEXTI
393 FORI=1TOB
394 PRINT#1,DS$(I);CHR$(13)
395 FORJ=1TOC
396 PRINT#1,D(I,J);CHR$(13)
397 PRINT#1,E(I,J);CHR$(13)
398 PRINT#1,N$(I,J);CHR$(13)
399 PRINT#1,DN$(I,J);CHR$(13)
400 NEXTJ
401 NEXTI
402 FORI=1TOB
403 FORJ=1TOA
404 PRINT#1,G$(I,J);CHR$(13)
405 PRINT#1,H$(I,J);CHR$(13)
406 NEXTJ
407 NEXTI
408 CLOSE1:GOSUB 739
409 GOSUB604
410 RETURN
411 PRINTZD$ZA$Y9$ZB$:PRINT:PRINT
412 PRINT"[160]   [211]IND ALLE [196]ATEN AUF [196]ISKETTE":PRINT
413 PRINT"    GESICHERT  ??????????  ([202]/[206])":PRINT
414 INPUT"                ";W$:PRINT
415 IFW$<>"J"THENRETURN
416 PRINT"    ";ZA$" [215][160][201][160][210][160][203][160][204][160][201][160][195][160][200][160] ???? "ZB$;
417 INPUT"  ";W1$
418 IFW1$<>"J"THENRETURN
419 PRINT:PRINT:PRINT:WX$=""
420 PRINT"    [206] = [206]EUE [204]IGA":PRINT
421 PRINT"    [197] = [208]ROGRAMMENDE"
422 GET WX$:IFWX$=""THEN422
423 IFWX$<>"E"THENCLR:GOTO3
424 SYS64738
425 PRINT#2,CHR$(14);" [206] A C H H O L S P I E L E ";CHR$(15):PRINT#2
426 FORI=B1TOB2
427 FORJ=1TOC
428 IFN$(I,J)<>"N"THEN432
429 PRINT#2,"[214]OM";:IFI<10THENPRINT#2," ";
430 PRINT#2,I;".[211]PIELTAG ";DS$(I);" ";M$(D(I,J));" - ";
431 PRINT#2,M$(E(I,J));" NEU AM ";DN$(I,J)
432 NEXTJ
433 NEXTI
434 GOTO289
435 GOSUB571
436 PRINTZD$ZA$Z6$ZB$:PRINT
437 PRINT"           [196]RUCKERAUSGABE":PRINT:PRINT
438 PRINT"     [211]PIELPLAN EINER [205]ANNSCHAFT"
439 PRINT:PRINT"     [211]TAND :         ";DA$:PRINT
440 PRINT"     [215]ELCHER [205]ANNS.  ( 1 - ";ZE$;A;ZE$;" ) ";:INPUTMN:PRINT
441 IFMN<1ORMN>ATHENPRINTZH$ZH$ZH$:GOTO440
442 PRINT"          ";M$(MN):PRINT
443 PRINTZA$Z0$ZB$
444 GOSUB709
445 IFW$<>"J"THEN435
446 PRINTZH$ZH$
447 PRINT"      "ZA$" [205] "ZB$" = [205]ENUE "ZA$" [196] "ZB$" = [196]RUCKEN        "
448 GOSUB709
449 IFW$="M"THENRETURN
450 IFW$<>"D"THEN448
451 CLOSE2:OPEN2,4,7
452 PRINT#2,CHR$(14);"****** [211]PIELPLAN ";M$(MN);" ******";CHR$(15):PRINT#2
453 PRINT#2,CHR$(14);LN$"     [211]TAND : ";DA$;CHR$(15)
454 PRINT#2:GOSUB711
455 PRINT#2,CHR$(14);"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";CHR$(15)
456 PRINT#2
457 FORI=1TOB
458 FORJ=1TOC
459 IFM$(MN)<>M$(D(I,J))ANDM$(MN)<>M$(E(I,J))THEN462
460 PRINT#2,I;".";CHR$(16)CHR$(48)CHR$(55);DS$(I);"    ..... [213]HR     ";
461 PRINT#2,M$(D(I,J));" [192] ";M$(E(I,J));"  ";G$(I,D(I,J));":"H$(I,D(I,J))
462 NEXTJ
463 NEXTI
464 PRINT#2:PRINT#2:PRINT#2:CLOSE2
465 PRINT:PRINT:PRINT" [205]OECHTEN [211]IE EINEN WEITEREN [193]USDRUCK"
466 PRINT:PRINT" VON [205]ANNSCHAFT       ";M$(MN)     "
467 [141]709
468 [139]W$[178]"J"[167]451
469 [139]W$[179][177]"N"[167]467
470 [153]ZH$ZH$ZH$ZH$
471 [153]" (null)OECHTEN  (null)IE  EINEN  ATNUSDRUCK EINER  "
472 [153]:[153]" ANDEREN  (null)ANNSCHAFT          ( MID$/(null) )  "
473 [141]709
474 [139]W$[178]"J"[167]435
475 [139]W$[179][177]"N"[167]473
476 [142]
477 [153]ZD$ZA$Z3$ZB$:[153]
478 [153]:[153]"        PEEKITTE STR$ATUM IN DER ASCORM":[153]
479 [153]"        > (null)(null).(null)(null).MID$MID$MID$MID$ < EINGEBEN":[153]
480 [129]I[178]1[164]B[169]2
481 [153]I;ZE$;". ":[153]ZH$ZF$ZF$ZF$ZF$ZF$ZF$;DS$(I)
482 [153]ZH$;:[129]X[178]1[164]20:[153]ZF$;:[130]X:[153] I[170]1;ZE$;". "
483 [153]ZH$;:[129]X[178]1[164]27:[153]ZF$;:[130]X:[153]DS$(I[170]1)
484 [130]I
485 [153]:[153]ZA$Z0$ZB$
486 [141]709
487 [139]W$[178]"J"[167][142]
488 [139]W$[179][177]"N"[167]486
489 [153]ZC$ZG$ZG$ZG$ZG$ZG$ZG$
490 [139]A[178]17[176]A[178]18[167][153]ZH$ZH$ZH$
491 [139]A[178]19[176]A[178]20[167][153]ZH$ZH$ZH$ZH$ZH$
492 [129]I[178]1[164]B[169]2
493 [153]ZF$ZF$ZF$ZF$;:[133]DS$:DS$(I)[178][200](DS$,10):[153]ZH$;
494 [129]X[178]1[164]25:[153]ZF$;:[130]X:[133]DS$:DS$(I[170]1)[178][200](DS$,10)
495 [130]I
496 [137]485
497 [129]AM[178]1[164]A
498 [139][200](M$(AM),5)[178]"....."[167]500
499 AN[178]AN[170]1
500 [130]AM
501 [153]ZH$"                                     "
502 [153]ZH$ZH$ZH$"                                     "
503 [139]AN[171]1[179]3[167][153]ZH$"(null)ICHT ZULAESSIG ! (null)ANNSCHAFTSANZAHL < 3"
504 [139]AN[171]1[179]3[167]AN[178]0:[141]709:[142]
505 AN[178]0
506 [153]ZH$"     (null)ELCHE (null)ANNSCHAFT 1 -";A;:[133] " ";MW
507 [153]ZH$"  "ZA$" RIGHT$CH KORRIGIERE DIE STR$ATEN VON "MW;ZE$"   "ZB$
508 [141]571
509 [129]I[178]1[164]B
510 [129]J[178]1[164]C
511 [139]D(I,J)[179][177]MW[175]E(I,J)[179][177]MW[167]515
512 G$(I,D(I,J))[178]"":H$(I,D(I,J))[178]""
513 G$(I,E(I,J))[178]"":H$(I,E(I,J))[178]""
514 D(I,J)[178]0:E(I,J)[178]0
515 [130]J
516 [130]I
517 M$(MW)[178]"..............."
518 [142]
519 [129]I[178][181](B[173]2)[170]1[164]B
520 [129]J[178]1[164]C
521 D(I,J)[178]E(I[171]B[173]2,J)
522 E(I,J)[178]D(I[171]B[173]2,J)
523 [130]J
524 [130]I
525 [142]
526 [153]ZH$"                                     "
527 [153]ZH$ZH$ZH$"                                     "
528 [139]A[170]1[177]20[167][153]ZH$"(null)ICHT ZULAESSIG ! (null)ANNSCHAFTSANZAHL >20"
529 [139]A[170]1[177]20[167][141]709:[142]
530 A[178]A[170]1:[141]571
531 [153]ZH$ZH$:[153]"  (null)EUE (null)ANNSCHAFT   ...............";
532 [153]ZE$ZE$ZE$ZE$ZE$ZE$ZE$ZE$ZE$ZE$ZE$ZE$ZE$ZE$ZE$ZE$ZE$;:[133]M$(A)
533 [139][181](A[173]2)[178]A[173]2[167][142]
534 [129]I[178]B[171]2[164]A[170]1[169][171]1
535 DS$(I)[178]DS$(I[171]2)
536 [130]I
537 DS$(A)[178]"......198."
538 DS$(A[171]1)[178]"......198."
539 DS$(B[171]1)[178]"......198."
540 DS$(B)[178]"......198."
541 :[153]:[153]
542 [129]I[178]1[164]150
543 [153]ZA$" (null)PIELTAGE UND VALRGEBNISSE NEU SETZEN "ZB$
544 [139]I[178]150[167]550
545 [153]ZH$;
546 [153]"                                     "ZH$
547 [153]"                                     "ZH$
548 [153]"                                     "ZH$
549 [130]I
550 [141]709
551 [142]
552 [153]ZC$:[129]X[178]1[164]7:[153]ZG$:[130]X
553 [139]A[177]15[167][153]ZH$ZH$
554 [139]A[177]16[167][153]ZH$
555 [139]A[177]17[167][153]ZH$ZH$
556 [139]A[177]18[167][153]ZG$ZH$
557 [139]A[177]19[167][153]ZH$ZH$
558 [129]J[178]1[164]C
559 GG$[178]"":HH$[178]"":N$(I,J)[178]"":G$(I,D(I,J))[178]"":H$(I,D(I,J))[178]""
560 G$(I,E(I,J))[178]"":H$(I,E(I,J))[178]"":[129]X[178]1[164]17:[153]ZF$;:[130]X
561 [133]GG$:[139][200](GG$,3)[178]"..."[167]GG$[178]"..."
562 [139][200](GG$,1)[178]"N"[167]N$(I,J)[178][200](GG$,1):GG$[178]"..."
563 [139]GG$[179][177]"..."[167]G$(I,D(I,J))[178][196]([197]([200](GG$,3)))
564 [153]ZH$;:[129]X[178]1[164]25:[153]ZF$;:[130]X
565 [133]HH$:[139][200](HH$,3)[179][177]"..."[167]H$(I,D(I,J))[178][196]([197]([200](HH$,3))):HH$[178]""
566 [139]N$(I,J)[178]"N"[167]H$(I,D(I,J))[178]"":[139]N$(I,J)[178]"N"[167]G$(I,D(I,J))[178]""
567 G$(I,E(I,J))[178]H$(I,D(I,J))
568 H$(I,E(I,J))[178]G$(I,D(I,J))
569 [130]J
570 [142]
571 [139][181](A[173]2)[178]A[173]2[167]B[178](A[172]2)[171]2:C[178]A[173]2
572 [139][181](A[173]2)[179][177]A[173]2[167]B[178]A[172]2:C[178](A[171]1)[173]2
573 [142]
574 [153]:[153]"           ";ZA$" ASCORMATIEREN "ZB$:[153]
575 [129]I[178]1[164]20
576 [139]M$(I)[178]""[167]M$(I)[178]"..............."
577 [130]I
578 [129]I[178]1[164]38
579 [139]DS$(I)[178]""[167]DS$(I)[178]"......198."
580 [130]I
581 [129]I[178]1[164]38
582 [129]J[178]1[164]10
583 [139]DN$(I,J)[178]""[167]DN$(I,J)[178]"......198."
584 [130]J
585 [130]I
586 [142]
587 [153]:[153]"           ";ZA$" ASCORMATIEREN "ZB$:[153]
588 [129]I[178]1[164]B
589 [129]J[178]1[164]C
590 D(I,J)[178]D(I,J)[170]10
591 E(I,J)[178]E(I,J)[170]10
592 [139]N$(I,J)[178]""[167]N$(I,J)[178]"H"
593 [130]J
594 [130]I
595 [129]I[178]1[164]B
596 [129]J[178]1[164]A
597 [139]G$(I,J)[178]""[167]G$(I,J)[178]"800"
598 [139]H$(I,J)[178]""[167]H$(I,J)[178]"800"
599 G$(I,J)[178][196]([197](G$(I,J))[170]100)
600 H$(I,J)[178][196]([197](H$(I,J))[170]100)
601 [130]J
602 [130]I
603 [142]
604 [153]:[153]"           ";ZA$"(null)EFORMATIEREN"ZB$:[153]
605 [141]571
606 [129]I[178]1[164]B
607 [129]J[178]1[164]C
608 D(I,J)[178]D(I,J)[171]10
609 E(I,J)[178]E(I,J)[171]10
610 [139]N$(I,J)[178]"H"[167]N$(I,J)[178]""
611 [130]J
612 [130]I
613 [129]I[178]1[164]B
614 [129]J[178]1[164]A
615 G$(I,J)[178][196]([197](G$(I,J))[171]100)
616 H$(I,J)[178][196]([197](H$(I,J))[171]100)
617 [139]G$(I,J)[178]" 800"[167]G$(I,J)[178]""
618 [139]H$(I,J)[178]" 800"[167]H$(I,J)[178]""
619 [130]J
620 [130]I
621 [142]
622 [129]I[178]1[164]A
623 SM$[178][196](1000[170]L(I,3))
624 [139]L(I,3)[179]0[167]SM$[178][199](48)[170]SM$
625 [139]L(I,3)[177][178]0[167]SM$[178][199](49)[170][201](SM$,3)
626 Z(I)[178]I
627 SR$(I)[178][196](L(I,8)[170]100)[170][196](999[171]L(I,9))[170]SM$[170][196](100[170]L(I,1))[170][196](L(I,2))
628 [130]I
629 N1[178]1:N2[178]A
630 I[178]1
631 J1[178]N1:J2[178]N2
632 [139]SR$(J1)[177][178]SR$(J2)[167]640
633 X[178]Z(J1):Z(J1)[178]Z(J2):Z(J2)[178]X
634 X$[178]SR$(J1):SR$(J1)[178]SR$(J2):SR$(J2)[178]X$
635 J1[178]J1[170]1
636 [139]J1[178]J2[167]642
637 [139]SR$(J1)[177][178]SR$(J2)[167]635
638 X[178]Z(J1):Z(J1)[178]Z(J2):Z(J2)[178]X
639 X$[178]SR$(J1):SR$(J1)[178]SR$(J2):SR$(J2)[178]X$
640 J2[178]J2[171]1
641 [139]J2[179][177]J1[167]632
642 J2[178]J2[170]1
643 [139]J2[177][178]N2[167]646
644 K1(I,1)[178]J2:K1(I,2)[178]N2
645 I[178]I[170]1
646 J1[178]J1[171]1
647 [139]N1[177][178]J1[167]650
648 N2[178]J1
649 [137]631
650 I[178]I[171]1
651 [139]I[179]1[167]654
652 N1[178]K1(I,1):N2[178]K1(I,2)
653 [137]631
654 [142]
655 ZA$[178][199](18):ZB$[178][199](146):ZC$[178][199](19):ZD$[178][199](147)
656 ZE$[178][199](157):ZF$[178][199](29):ZG$[178][199](17):ZH$[178][199](145)
657 ZZ$[178]"PEEKCLOSERIGHT$CLOSE(null)CLOSESTR$CLOSE(null)CLOSELENCLOSELEFT$CLOSERIGHT$CLOSE(null)CLOSE(null)"
658 ZY$[178]"STR$CLOSE(null)CLOSE(null)CLOSELENCLOSE(null)CLOSEVALCLOSE(null)CLOSE"
659 ZX$[178]"STR$CLOSERIGHT$CLOSE(null)CLOSE(null)CLOSEVALCLOSE(null)CLOSE(null)CLOSEVAL"
660 ZV$[178]"(null)ETURN"
661 ZW$[178]"(null)ANNSCHAFTEN         -E-S-K-"
662 ZT$[178]"(null)PIELTAGE            -E-S-K-"
663 ZS$[178]"(null)ABELLEN               -S-  "
664 ZR$[178]"(null)ANNSCHAFTSLISTE       -D-  "
665 ZQ$[178]"(null)PIELTAGE              -D-  "
666 ZP$[178]"(null)ABELLE                -D-  "
667 ZO$[178]"STR$ATEN LADEN VON STR$ISKETTE    "
668 ZN$[178]"STR$ATEN SPEICHERN AUF STR$ISKETTE"
669 ZM$[178]" (null)EUE (null)IGA  /   (null)(null)(null)CHR$ATN(null)(null)VAL(null)STR$VAL "
670 ZL$[178]"   E=EINGEBEN S=SICHTEN K=KORRIGIEREN"
671 ZK$[178]" (null)=(null)ENUE (null)=KORRIGIEREN LEN(null)(null)(null)=BLAETTERN  "
672 Z1$[178]"LIGATABABS       (null)CLOSEVALCLOSE(null)CLOSE(null)CLOSEVALCLOSE    INTBY HEUSER"
673 Z2$[178]"LIGATABABS(null)ANNSCHAFTEN -E-S-K- INTBY HEUSER"
674 Z3$[178]"LIGATABABS   (null)PIELTAGE -E-S-K- INTBY HEUSER"
675 Z4$[178]"LIGATABABS    (null)ABELLEN   -S-   INTBY HEUSER"
676 Z5$[178]"LIGATABABS(null)ANNSCHAFTSLISTE -D- INTBY HEUSER"
677 Z6$[178]"LIGATABABS   (null)PIELTAGE   -D-   INTBY HEUSER"
678 Z7$[178]"LIGATABABS    (null)ABELLEN   -D-   INTBY HEUSER"
679 Z8$[178]"LIGATABABS STR$ATEN VON STR$ISK. LA. INTBY HEUSER"
680 Z9$[178]"LIGATABABS STR$ATEN AUF STR$ISK. SP. INTBY HEUSER"
681 Y9$[178]"LIGATABABS (null)EUE (null)IGA/(null)RG.-VALNDE INTBY HEUSER"
682 Z0$[178]"LIGATABABS VALINGABE OK (MID$/(null))    INTBY HEUSER"
683 NZ$[178]"LIGATABABS(null)ACHHOLSPIELE -E-S-K-INTBY HEUSER"
684 [142]
685 [141]571
686 [129]I[178]1[164]B
687 [153]ZD$ZA$NZ$ZB$:[153]
688 [153]I;". (null)PIELTAG VOM ";DS$(I):[153]:NZ[178]0
689 [129]J[178]1[164]C
690 [139]N$(I,J)[179][177]"N"[167]692
691 [153]M$(D(I,J));" - ";M$(E(I,J)):NZ[178]1:[153]"^^ (null)EUES STR$ATUM :   ";DN$(I,J)
692 [130]J
693 [139]NZ[178]0[167][153]" (null)EINE (null)ACHHOLSPIELE !!!"
694 [153]:[153]ZA$ZK$ZB$
695 [141]709
696 [139]W$[178]ZH$[167]I[178]I:[139]I[178]B[167]I[178]0
697 [139]W$[178]ZG$[167]I[178]I[171]2:[139]I[179]0[167]I[178]B[171]1
698 [139]W$[178]"K"[167][141]702
699 [139]W$[178]"M"[167][142]
700 [130]I
701 [142]
702 [153]ZC$ZG$ZG$ZG$ZG$
703 [129]J[178]1[164]C
704 [139]N$(I,J)[179][177]"N"[167]706
705 [133]"^^ (null)EUES STR$ATUM : ";DN$(I,J):[153]ZG$ZH$
706 [130]J
707 [142]
708 [141]723
709 [141]723:[141]730
710 [142]
711 [152]2,"LIGATAB";[199](16)[199](54)[199](57);"BY HEUSER":[142]
712 [153]ZD$ZA$Z3$ZB$:[153]
713 [129]X[178]1[164]A[169]2
714 [153]X;
715 [139]X[179]10[167][153]" ";
716 [153]M$(X);
717 [139]X[170]1[179][178]A[167][153]X[170]1;
718 [139]X[170]1[179][178]A[175]X[170]1[179]10[167][153]" ";
719 [139]X[170]1[179][178]A[167][153]M$(X[170]1)
720 [130]X
721 [153]:[139]X[170]1[177]A[175]X[170]1[179]20[167][153]
722 [142]
723 SI[178]54272:FL[178]SI:FH[178]SI[170]1:TL[178]SI[170]2:TH[178]SI[170]3:WT[178]SI[170]4:AT[178]SI[170]5:HT[178]SI[170]6:LT[178]SI[170]24
724 [151]LT,15:[151]TH,15:[151]TL,15:[151]AT,0[172]16[170]0:[151]HT,15[172]16
725 [151] WT,65
726 [129] XT[178]50[164]0[169][171]2:[151]FH,40:[151]FL,XT:[130]
727 [129] XT[178]50[164]0[169][171]4:[151]FH,40:[151]FL,XT:[130]
728 [151]WT,0
729 [142]
730 [161]W$:[139]W$[178]""[167]730
731 [142]
732 [139]G$(I,D(I,J))[178]""[167]G$(I,D(I,J))[178]" ..."
733 [139]H$(I,D(I,J))[178]""[167]H$(I,D(I,J))[178]" ..."
734 [142]
735 [139]G$(I,D(I,J))[178]" ..."[167]G$(I,D(I,J))[178]""
736 [139]H$(I,D(I,J))[178]" ..."[167]H$(I,D(I,J))[178]""
737 [142]
738 [151] 56334,[194](56334)[175] 254:[142]
739 [151] 56334,[194](56334) [176] 1:[142]
740 [160]15:[160]2:[153][199](147);ZA$Z8$ZB$:[153]
741 [159]15,8,15,"I0":[159]2,8,2,"#"
742 T[178]18:S[178]1
743 [152]15,"U1";2;0;T;S
744 [152]15,"B-P";2;0
745 [161]#2,XX$:[139]XX$[178]""[167]XX$[178][199](0)
746 T[178][198](XX$)
747 [161]#2,XX$:[139]XX$[178]""[167]XX$[178][199](0)
748 S[178][198](XX$)
749 [129]XY[178]0[164]7
750 [152]15,"B-P";2;XY[172]32[170]2
751 [161]#2,XX$:[139]XX$[178]""[167]XX$[178][199](0)
752 [139][198](XX$)[178]0[167]762
753 [152]15,"B-P";2;XY[172]32[170]5
754 FF$[178]""
755 [129]YX[178]0[164]15
756 [161]#2,XX$:[139]XX$[178]""[167]XX$[178][199](0)
757 [139][198](XX$)[178]160[167]760
758 FF$[178]FF$[170]XX$
759 [130]YX
760 [139]AA[178]0[167]AA[178]1:[153]"   ";FF$:[137]762
761 AA[178]0:[153]"   ";FF$
762 [130]XY
763 [139]T[179][177]0[167]743
764 [160]2:[160]15
765 [142]